From: Glenn Morris <rgm@gnu.org>
Date: Sat, 17 Oct 2009 03:08:56 +0000 (+0000)
Subject: Ulrich Mueller  <ulm at gentoo.org>
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~844^2~6572
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=f8ad49508aebd6fb54bfdf0668c1fdebaf3bb55f;p=emacs.git

Ulrich Mueller  <ulm at gentoo.org>

(doctor-adverbp): Exclude some nouns.	(Bug#4565)
---

diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el
index 2d4ebd75ede..dc5f3ca4b89 100644
--- a/lisp/play/doctor.el
+++ b/lisp/play/doctor.el
@@ -1190,7 +1190,8 @@ the subject noun, and return the portion of the sentence following it."
 (defun doctor-adverbp (xx)
   (let ((xxstr (doctor-make-string xx)))
     (and (>= (length xxstr) 2)
-	 (string-equal (substring (doctor-make-string xx) -2) "ly"))))
+	 (string-equal (substring (doctor-make-string xx) -2) "ly")
+	 (not (memq xx '(family fly jelly rally))))))
 
 (defun doctor-articlep (x)
   (memq x '(the a an)))